#!/usr/bin/env perl

#显示当前路径下的所有文件
$dir="./*";
my @file =glob($dir);
foreach (@file) {
        print("$_\n");
}

print("\n+++++++++++++++++++++++\n");
#显示当前路径下的.pl文件
$dir="./*.pl";
my @file =glob($dir);
foreach (@file) {
        print("$_\n");
}

print("\n+++++++++++++++++++++++\n");
#显示当前路径下的隐藏文件
$dir="./.*";
my @file =glob($dir);
foreach (@file) {
        print("$_\n");
}

print("\n+++++++++++++++++++++++\n");
#显示当前路径下的所有文件
opendir (DIR,'.') or die "无法打开目录！，$!";
while( $file = readdir(DIR) ) {
        print("$file\n");
}
closedir(DIR);

# 创建一个目录
$newDir="./tdir";
mkdir($newDir) or die "无法创建$newDir,$!";
print("创建 $newDir 成功！\n");





